home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Apple II Magazines (DO)
/
Softdisk Magazette Volume 1, No. 07 (1982-03)(Softdisk)(Side B).zip
/
Softdisk Magazette Volume 1, No. 07 (1982-03)(Softdisk)(Side B).do
/
INITIALIZE.HIST-FILE.bas
< prev
next >
Wrap
BASIC Source File
|
1996-12-24
|
364b
|
14 lines
5 D$ = CHR$(4)
80 FOR I = 0 TO 3
90 READ A$(I)
100 NEXT I
530 DATA "4","/QWAS HE A PRESIDENT/Y2/N3", "/AWASHINGTON","/AFRANKLIN"
2000 PRINT D$;"DELETEHIST-FILE"
2005 PRINT D$;"OPEN HIST-FILE"
2010 PRINT D$;"WRITE HIST-FILE"
2020 PRINT A$(0)
2030 FOR I = 1 TO VAL(A$(0))
2040 PRINT A$(I)
2050 NEXT I
2060 PRINT D$;"CLOSE HIST-FILE"
2070 END